home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 5.1 / Macromedia - Multimedia Showcase 5.1 (Macromedia) (1996).ISO / pc / media / shared.dir / 02003_Script_button object < prev    next >
Text File  |  1996-03-28  |  828b  |  33 lines
  1. -- script for "Button Object"
  2.  
  3. property sBirth, sDeath, tDeath, castID, jumpToID
  4.  
  5. on birth me, whatEvent
  6.   Assign me, whatEvent
  7.   return me
  8. end birth
  9.  
  10. --
  11.  
  12. on Assign me, whatEvent
  13.   global sBirthPtr, tBirthPtr, sDeathPtr, tDeathPtr, castIdPtr, jumpToIdPtr
  14.   -- put "obj/event:" && me && whatEvent
  15.   global gNavObj
  16.   set sBirth = the sceneID of gNavObj
  17.   set sDeath = item sDeathPtr of whatEvent
  18.   set tDeath = item tDeathPtr of whatEvent
  19.   set castID = item castIdPtr of whatEvent
  20.   set jumpToID = item jumpToIdPtr of whatEvent  
  21.   -- put "obj cast/jump:" && castID & "/" & jumpToID
  22.   return castID
  23. end Assign
  24.  
  25. --
  26.  
  27. on GoToLink me
  28.   global gNavObj 
  29.   set curLoc = the sceneID of gNavObj
  30.   if curLoc = jumpToID then return 0
  31.   LoadSeq(gNavObj, jumpToID)
  32.   ChangeScene(gNavObj, jumpToID)
  33. end GoToLink